home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS069.dsk / PING PONG.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  46 lines
  1. 100  HGR2 : POKE  -16302,0
  2. 102  PRINT "<CTRL-G>";
  3. 105  HCOLOR= 3
  4. 110  HPLOT 0,0 TO 279,0: HPLOT 0,191 TO 279,191
  5. 120 X = 50:Y = 50:XO = X:YO = Y
  6. 130 AO = ( PDL(0)/1.41) +5:BO = ( PDL(1)/1.41) +5
  7. 140 XS = 12:YS = 3.4
  8. 145  GOSUB 160: GOSUB 500: GOSUB 160: GOSUB 700: GOTO 145
  9. 160 X = XO +XS
  10. 180  IF X >1  AND X <279  THEN 300
  11. 183  REM XS=XS+ .2 
  12. 185  IF X >100  THEN 195
  13. 190  IF Y >A +5  OR Y <A -5  THEN 100
  14. 191 YS = (Y -A) *2.5
  15. 192  GOTO 260
  16. 195  IF Y >B +5  OR Y <B -5  THEN 100
  17. 196 YS = (Y -B) *2.5
  18. 260 XS =  -1 *XS
  19. 265  FOR S = 1 TO 3:Q =  PEEK( -16336): NEXT 
  20. 270  GOTO 160
  21. 300 Y = YO +YS
  22. 320  IF Y >1  AND Y <191  THEN 400
  23. 340 YS =  -1 *YS
  24. 350  FOR S = 1 TO 3:Q =  PEEK( -16336): NEXT 
  25. 360  GOTO 300
  26. 400  HCOLOR= 0
  27. 410  HPLOT XO,YO
  28. 420  HCOLOR= 3
  29. 430  HPLOT X,Y
  30. 440 XO = X:YO = Y
  31. 450  RETURN 
  32. 500 B = ( PDL(1)/1.41) +5
  33. 530  HCOLOR= 0
  34. 560  HPLOT 279,BO -5 TO 279,BO +5
  35. 580  HCOLOR= 3
  36. 620  HPLOT 279,B -5 TO 279,B +5
  37. 640 BO = B: RETURN 
  38. 700 A = ( PDL(0)/1.41) +5
  39. 730  HCOLOR= 0
  40. 740  HPLOT 0,AO -5 TO 0,AO +5
  41. 750  HCOLOR= 3
  42. 760  HPLOT 0,A -5 TO 0,A +5
  43. 780 AO = A: RETURN 
  44. 1000  REM  HI-RES PONG
  45. 1010  REM  BY CHRIS OBERTH
  46. 1020  REM  PROGRAM NOT FINISHED